1// Insert menu illustration scene "Animation.pov"
2// Author: Friedrich A. Lohmueller, June 2012
3#version 3.7;
4#if (( Typ != 10 ) & (Typ != 20))
5global_settings{ assumed_gamma 1.0 }
6#end
7
8#default{ finish{ ambient 0.1 diffuse 0.9 }}
9#include "shapes.inc"
10#include "colors.inc"
11#include "textures.inc"
12
13#declare In_Path  = "C0 - Animation/"
14
15   //   #declare Typ =21; // for tests
16
17#switch (Typ)  //----------------------------------------------------------
18
19#case(10)  #declare Txt_Path="10 - animation1 ini_file.txt" #break
20#case(11)  #declare Txt_Path="11 - animation1 scene_file.txt" #break
21
22#case(20)  #declare Txt_Path="20 - animation2 ini_file.txt" #break
23#case(21)  #declare Txt_Path="21 - animation2 scene_file.txt" #break
24
25#end // of '#switch (Typ)' ------------------------------------------------
26//-------------------------------------------------------------------------
27
28
29
30//-------------------------------------------------------------------------
31//----------
32#if (Typ=10) // In_Path,"10 - animation1 ini_file.txt"
33#include "10 - Ready made scenes/50 - Basic Scene 05 - Grass with small clouds in sky.txt"
34//----
35 #for (Nr, 0, 1, 1/20)
36  sphere{ <0,0,0>, 0.15
37          texture { pigment{ color rgb<1,0,0> } finish{ phong 1}}
38          translate<1,0.5,0>
39          rotate<0,360*(Nr),0>
40        }
41 #end // ---
42//#include concat(In_Path,Sub_Path4,Txt_Path)
43#end
44//----------
45#if (Typ=11) // In_Path,"11 - animation1 scene_file.txt"
46 #include concat(In_Path,Txt_Path)
47#end
48//----------
49//----------
50#if (Typ=20)  //  In_Path,"20 - animation2 ini_file.txt"
51 #include "10 - Ready made scenes/50 - Basic Scene 05 - Grass with small clouds in sky.txt"
52 //--------
53 #declare Spline_1 =
54  spline {
55    natural_spline
56
57   -0.25, < 0, 2.1, 0.5>,
58   -0.15, <-1, 0.5, 0.0>,
59
60    0.00, <-1, 0.1,-1.0>,
61    0.25, < 0, 0.1,-0.5>,
62    0.35, < 1, 0.1,-1.0>,
63    0.50, < 1, 0.5, 1.0>,
64    0.75, < 0, 2.1, 0.5>,
65    0.85, <-1, 0.5, 0.0>,
66    1.00, <-1, 0.1,-1.0>
67
68    1.25, < 0, 0.1, 0.0>
69    1.35, < 1, 0.1,-1.0>,
70  } //-------------------
71 #for (Nr, 0, 1, 1/30)
72  sphere{ <0,0,0>, 0.15
73          texture { pigment{ color rgb<1,0,0> } finish{ phong 1}}
74          translate Spline_1(Nr+0.25)+<0,0.15,0>
75        }
76 #end // -------
77#end
78//----------
79//----------
80#if (Typ=21) // In_Path,"21 - animation2 scene_file."
81 #include concat(In_Path,Txt_Path)
82#end
83//----------
84//----------
85
86//---------- End Animation